home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / system / mail / transpor / ifmail23.z / ifmail23 / ifmail / misc / contrib / ifman next >
Encoding:
Text File  |  1994-03-13  |  4.2 KB  |  170 lines
  1. #! /usr/bin/perl
  2. #
  3. # This is a utility script to manipulate Fidonet-related issues
  4. # using Eugene Crosser's ifmail package
  5. #
  6. # Version 0.1
  7. #
  8. # (C) Michael Bravo and The Communication Tube, 1994
  9. #
  10. # You can do whatever you want with this script. I take no responsibility
  11. # whatsoever in anything related to this script. If you make some useful
  12. # additions to this, please think of sending them to me so I could partake
  13. # of your wisdom.
  14. #
  15. # This script was written to help attaching and requesting files from the
  16. # commandline, much like you do with Squish under DOS or OS/2. It is certainly
  17. # not perfect - I used it as an exercise in Perl. It also probably lacks
  18. # some other useful features, like ability to specify trunc/sent or kill/sent
  19. # attributes etc etc. If you really want this or some other features 
  20. # implemented, write me at mbravo@tctube.spb.su or mbravo@octopus.spb.su
  21. # and I will try to do what I can.
  22. #
  23. # Note - files don't get copied to any spool dir, so if you move attached
  24. # files somewhere, they won't get sent.
  25. #
  26. # This script is supposed to read ifmail's config to determine where outbound
  27. # directory and logfile are. The only two parameters to modify in most cases
  28. # are below.
  29.  
  30. $cfgfile="/usr/local/lib/fnet/config";     # where the config is
  31. $ifowner="uucp";                           # who is the owner of the ifmail
  32.  
  33. if ( getpwuid($<) ne $ifowner ) { print "You must be owner of ifmail\n"; exit 1; }
  34.  
  35. if ( (@ARGV < 3) || $ARGV[0] eq "-?" || $ARGV[0] eq "-h" ) {
  36.     &usage;
  37. } 
  38.  
  39. $ARGV[0] =~ tr/A-Z/a-z/;
  40. $ARGV[3] =~ tr/A-Z/a-z/;
  41.  
  42. &parsecfg;
  43.  
  44. if ( $logfile ne "" ) { 
  45.     open(LOG, ">>".$logfile) || die "Can't open logfile";
  46. }
  47.  
  48. if (substr($ARGV[1], 0, 1) ne "/") {
  49.     $cwd=`pwd`;
  50.     chop $cwd;
  51.     $ARGV[1] = $cwd."/".$ARGV[1];
  52. }
  53.  
  54. if ($ARGV[3] eq "" || $ARGV[3] eq "normal") {
  55.     $flavour = 'f';
  56. } elsif ($ARGV[3] eq "crash") {
  57.     $flavour = 'c';
  58. } elsif ($ARGV[3] eq "hold") {
  59.     $flavour = 'h';
  60. } else {
  61.     print "Unknown flavour, assuming normal\n";
  62.     $flavour = 'f';
  63. }
  64.  
  65. if ($ARGV[0] eq "send") {
  66.     &attach($ARGV[1], $ARGV[2]);
  67. } elsif ($ARGV[0] eq "get") {
  68.     &request($ARGV[1], $ARGV[2]);
  69. } else {
  70.     print "Unknown command, try ifman -h\n";
  71.     exit 1;
  72. }
  73.  
  74. close(LOG);
  75.  
  76. exit 0;
  77.  
  78. #######################################################################
  79.  
  80. sub attach {
  81.     local($fspec, $address) = @_;
  82.  
  83.     $floname = &resolve($address);
  84.  
  85.     open(FLO, ">>".$outbound."/".$floname) || die "Can't open flo-file $outbound/$floname";
  86.     open(FIND, "find $fspec -print |") || die "Can't generate list of files"; 
  87.  
  88.     if ( eof(FIND) ) {
  89.         print "No matching files, nothing to send\n";
  90.         exit 1;
  91.     }
  92.  
  93.     while (<FIND>) {
  94.  
  95.         chop;
  96.         $datestamp = `date \"+%D %T\"`;
  97.         chop $datestamp;
  98.         printf LOG "%s %s %s\n", $datestamp, $$, "ifman: sending $_ to $address";
  99.         printf FLO "%s\n", $_;    
  100.     }
  101.  
  102.     close(FLO);
  103.     close(FIND);
  104. }
  105.  
  106. sub request {
  107.     local($fspec, $address) = @_;
  108.  
  109.     $reqname = &resolve($address);
  110.  
  111.     $reqname =~ s/\.[fch]lo/\.req/;
  112.     
  113.     open(REQ, ">>".$outbound."/".$reqname) || die "Can't open req-file";
  114.  
  115.     $datestamp = `date \"+%D %T\"`;
  116.     chop $datestamp;
  117.     printf LOG "%s %s %s\n", $datestamp, $$, "ifman: requesting $fspec from $address";
  118.     printf REQ "%s\n", $fspec;    
  119.  
  120.     close(REQ);
  121. }
  122.  
  123. sub resolve {
  124.     local($addr) = @_;
  125.  
  126.     if ( index($addr, ":") >=0 ) {
  127.         print "I cannot resolve addresses with zones!\n";
  128.         exit 1;
  129.     } elsif ( index($addr, "/") == -1 ) {
  130.         print "Not a valid address!\n";
  131.         exit 1;
  132.     }
  133.  
  134.     ($net, $node, $point) = split(/\/|\./, $addr); 
  135.  
  136.     if ( defined $point ) {
  137.         $pointdir = sprintf("%04x%04x.pnt", $net, $node);
  138.         if ( ! -e $outbound."/".$pointdir ) {
  139.             mkdir ($outbound."/".$pointdir, 0755) || die "Can't create point directory";
  140.         }
  141.         $flo = sprintf("0000%04x.%01slo", $point, $flavour);
  142.         return $pointdir."/".$flo;
  143.     } else {
  144.         $flo = sprintf("%04x%04x.%01slo", $net, $node, $flavour);
  145.         return $flo;
  146.     }
  147. }
  148.  
  149. sub usage {
  150.     print "ifmail manager script\n";
  151.     print "usage: ifman <cmd> <filespec> <address> [flavour]\n";
  152.     print "  commands: send, get\n";
  153.     print "  flavours: normal, crash, hold. Default is normal.\n";
  154.     print "Only 2d addresses with points are supported - no zones!\n";
  155.     exit 1;
  156. }
  157.  
  158. sub parsecfg {
  159.     open(CFG, $cfgfile) || die "Can't open ifmail config file";
  160.  
  161.     while (<CFG>) {
  162.         chop;
  163.         if (/^#/) { next; }
  164.         if (/^outbound\s+(\S+)/) { $outbound = $1; }
  165.         if (/^logfile\s+(\S+)/) { $logfile = $1; }
  166.     }
  167.     
  168.     close(CFG);
  169. }
  170.